home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
DMNOLAC.ZIP
/
anarchy.ppe
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-07-27
|
27KB
|
901 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
;------------------------------------------------------------------------------
:LABEL001
Cls
PrintLn "@PON@ @X0F ┌─@X0B──@X03──@X08─────────────────────────────────────────────────────────────┐ "
PrintLn " @X0F│ Th@X0Be o@X03nl@X08ine Anarchists Cook Book version 666 viewer and sorter @X08│ "
PrintLn " @X0F└─@X0B──@X03──@X08─────────────────────────────────────────────────────────────┘ "
PrintLn " @X0FBy@X0B: D@X03an@X08te [DMN] "
PrintLn " @X0FTa@X0Bbl@X03e o@X08f Contents "
PrintLn " ────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSe@X0Bct@X03io@X08n Number │ @X0FCo@X0Bnt@X03en@X08ts of Section "
PrintLn " @X0F1 @X08│ @X0FIn@X0Btr@X03od@X08uction "
PrintLn " @X0F2 @X08│ @X0FGe@X0Btt@X03in@X08g Materials "
PrintLn " @X0F3 @X08│ @X0FEx@X0Bpl@X03os@X08ives "
PrintLn " @X0F4 @X08│ @X0FUs@X0Bin@X03g E@X08xplosives "
PrintLn " @X0F5 @X08│ @X0F@X0FSp@X0Bec@X03ia@X08l Ammunition for Projectile Weapons "
PrintLn " @X0F6 @X08│ @X0FRo@X0Bck@X03et@X08s And Cannons "
PrintLn " @X0F7 @X08│ @X0FPy@X0Bro@X03te@X08chnica Errata "
PrintLn " @X0F8 @X08│ @X0FLi@X0Bst@X03s o@X08f Suppliers and further information "
PrintLn " @X0F9 @X08│ @X0FCh@X0Bec@X03kl@X08ists for raids on Labs "
PrintLn " @X0F10 @X08│ @X0FUs@X0Bef@X03ul@X08 Pyrochemistry "
PrintLn " @X0F11 @X08│ @X0FAb@X0Bou@X03t t@X08he Author "
PrintLn " @X0F12 @X08│ @X0FMy@X0B A@X03dd@X08ition and Disclaimer "
PrintLn " ────────────────────────────────────────────────────────────────────────"
Newline
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING001, "@X08", 3, "1234567890Qq", 0
If (STRING001 == "1") Goto LABEL002
If (STRING001 == "2") Goto LABEL003
If (STRING001 == "3") Goto LABEL018
If (STRING001 == "4") Goto LABEL046
If (STRING001 == "5") Goto LABEL071
If (STRING001 == "6") Goto LABEL083
If (STRING001 == "7") Goto LABEL092
If (STRING001 == "8") Goto LABEL101
If (STRING001 == "9") Goto LABEL102
If (STRING001 == "10") Goto LABEL103
If (STRING001 == "11") Goto LABEL104
If (STRING001 == "12") Goto LABEL105
If ((STRING001 == "Q") || (STRING001 == "q")) Goto LABEL107
Goto LABEL106
:LABEL002
DispFile PPEPath() + "0000.pcb", 0
Wait
Goto LABEL001
:LABEL003
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn " @X0F20 @X08│ @X0FBu@X0Byi@X03ng@X08 Explosives and Propellants "
PrintLn " @X0F201 @X08│ @X0F-B@X0Bla@X03ck@X08 Powder "
PrintLn " @X0F202 @X08│ @X0F-P@X0Byr@X03od@X08ex "
PrintLn " @X0F203 @X08│ @X0F -R@X0Boc@X03ke@X08t Engine Powder "
PrintLn " @X0F204 @X08│ @X0F -R@X0Bif@X03le@X08/Shotgun Powder "
PrintLn " @X0F205 @X08│ @X0F -F@X0Bla@X03sh@X08 Powder "
PrintLn " @X0F206 @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate "
PrintLn " @X0F21 @X08│ @X0FAc@X0Bqu@X03ir@X08ing Chemicals "
PrintLn " @X0F211 @X08│ @X0F -T@X0Bec@X03hn@X08igues for Lock Picking "
PrintLn " @X0F22 @X08│ @X0FLi@X0Bst@X03 of@X08 Common Household Items "
PrintLn " @X0F23 @X08│ @X0FPr@X0Bep@X03er@X08ation of Chemicals "
PrintLn " @X0F231 @X08│ @X0F-N@X0Bit@X03ri@X08c Acid "
PrintLn " @X0F232 @X08│ @X0F-S@X0Bul@X03fu@X08ric Acid "
PrintLn " @X0F233 @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
Newline
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING002, "@X08", 3, "1234567890Qq", 0
If (STRING002 == "20") Gosub LABEL004
If (STRING002 == "201") Gosub LABEL005
If (STRING002 == "202") Gosub LABEL006
If (STRING002 == "203") Gosub LABEL007
If (STRING002 == "204") Gosub LABEL008
If (STRING002 == "205") Gosub LABEL009
If (STRING002 == "206") Gosub LABEL010
If (STRING002 == "21") Gosub LABEL011
If (STRING002 == "211") Gosub LABEL012
If (STRING002 == "22") Gosub LABEL013
If (STRING002 == "23") Gosub LABEL014
If (STRING002 == "231") Gosub LABEL015
If (STRING002 == "232") Gosub LABEL016
If (STRING002 == "233") Gosub LABEL017
If ((STRING002 == "Q") || (STRING002 == "q")) Goto LABEL107
Goto LABEL106
:LABEL004
Cls
DispFile PPEPath() + "020.pcb", 0
Wait
Goto LABEL001
:LABEL005
Cls
DispFile PPEPath() + "0201.pcb", 0
Wait
Goto LABEL001
:LABEL006
Cls
DispFile PPEPath() + "0202.pcb", 0
Wait
Goto LABEL001
:LABEL007
Cls
DispFile PPEPath() + "0203.pcb", 0
Wait
Goto LABEL001
:LABEL008
Cls
DispFile PPEPath() + "0204.pcb", 0
Wait
Goto LABEL001
:LABEL009
Cls
DispFile PPEPath() + "0205.pcb", 0
Wait
Goto LABEL001
:LABEL010
Cls
DispFile PPEPath() + "0206.pcb", 0
Wait
Goto LABEL001
:LABEL011
Cls
DispFile PPEPath() + "021.pcb", 0
Wait
Goto LABEL001
:LABEL012
Cls
DispFile PPEPath() + "0211.pcb", 0
Wait
Goto LABEL001
:LABEL013
Cls
DispFile PPEPath() + "022.pcb", 0
Wait
Goto LABEL001
:LABEL014
Cls
DispFile PPEPath() + "023.pcb", 0
Wait
Goto LABEL001
:LABEL015
Cls
DispFile PPEPath() + "0231.pcb", 0
Wait
Goto LABEL001
:LABEL016
Cls
DispFile PPEPath() + "0232.pcb", 0
Wait
Goto LABEL001
:LABEL017
Cls
DispFile PPEPath() + "0233.pcb", 0
Wait
Goto LABEL001
:LABEL018
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn "@X0F 30 @X08│ @X0FEx@X0Bpl@X03os@X08ive Recipes "
PrintLn "@X0F 301 @X08│ @X0F-E@X0Bxp@X03lo@X08sive Theory "
PrintLn "@X0F 31 @X08│ @X0FIm@X0Bpa@X03ct@X08 Explosives "
PrintLn "@X0F 311 @X08│ @X0F -A@X0Bmm@X03on@X08ium Triiodide Crystals "
PrintLn "@X0F 312 @X08│ @X0F -M@X0Ber@X03cu@X08ry Fulminate "
PrintLn "@X0F 313 @X08│ @X0F -N@X0Bit@X03ro@X08glycerine "
PrintLn "@X0F 314 @X08│ @X0F -P@X0Bic@X03ra@X08tes "
PrintLn "@X0F 32 @X08│ @X0FLo@X0Bw @X03Or@X08der Explosives "
PrintLn "@X0F 321 @X08│ @X0F -B@X0Bla@X03ck@X08 Powder "
PrintLn "@X0F 322 @X08│ @X0F -N@X0Bit@X03ro@X08cellulose "
PrintLn "@X0F 324 @X08│ @X0F -P@X0Ber@X03ch@X08lorates "
PrintLn "@X0F 33 @X08│ @X0FHi@X0Bgh@X03 O@X08rder Explosives "
PrintLn "@X0F 331 @X08│ @X0F -R@X0B.D@X03.X@X08. (Cyclonite) "
PrintLn "@X0F 332 @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate "
PrintLn "@X0F 333 @X08│ @X0F -A@X0BNF@X03OS@X08 "
PrintLn "@X0F 334 @X08│ @X0F -T@X0B.N@X03.T@X08. "
PrintLn "@X0F 335 @X08│ @X0F -P@X0Bot@X03as@X08sium Chlorate "
PrintLn "@X0F 336 @X08│ @X0F -D@X0Byn@X03am@X08ite "
PrintLn "@X0F 337 @X08│ @X0F -N@X0Bit@X03ro@X08starch Explosives "
PrintLn "@X0F 338 @X08│ @X0F -P@X0Bic@X03ri@X08c Acid "
PrintLn "@X0F 339 @X08│ @X0F -A@X0Bmm@X03on@X08ium Picrate (Explosive D) "
PrintLn "@X0F 340 @X08│ @X0F -N@X0Bit@X03ro@X08gen Trichloride "
PrintLn "@X0F 341 @X08│ @X0F -L@X0Bea@X03d @X08Azide "
PrintLn "@X0F 35 @X08│ @X0FOt@X0Bhe@X03r E@X08xplosives "
PrintLn "@X0F 351 @X08│ @X0F -T@X0Bhe@X03rm@X08it "
PrintLn "@X0F 352 @X08│ @X0F -M@X0Bol@X03ot@X08ov Cocktails "
PrintLn "@X0F 353 @X08│ @X0F -C@X0Bhe@X03mi@X08cal Fire Bottle "
PrintLn "@X0F 354 @X08│ @X0F -B@X0Bot@X03tl@X08ed Gas Explosives "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING003, "@X08", 3, "1234567890Qq", 0
If (STRING003 == "30") Goto LABEL019
If (STRING003 == "301") Goto LABEL020
If (STRING003 == "31") Goto LABEL021
If (STRING003 == "311") Goto LABEL022
If (STRING003 == "312") Goto LABEL023
If (STRING003 == "313") Goto LABEL024
If (STRING003 == "314") Goto LABEL025
If (STRING003 == "32") Goto LABEL026
If (STRING003 == "321") Goto LABEL027
If (STRING003 == "322") Goto LABEL028
If (STRING003 == "323") Goto LABEL029
If (STRING003 == "33") Goto LABEL030
If (STRING003 == "331") Goto LABEL031
If (STRING003 == "332") Goto LABEL032
If (STRING003 == "333") Goto LABEL033
If (STRING003 == "334") Goto LABEL034
If (STRING003 == "335") Goto LABEL035
If (STRING003 == "336") Goto LABEL036
If (STRING003 == "337") Goto LABEL037
If (STRING003 == "338") Goto LABEL038
If (STRING003 == "339") Goto LABEL039
If (STRING003 == "340") Goto LABEL040
If (STRING003 == "341") Goto LABEL041
If (STRING003 == "35") Goto LABEL035
If (STRING003 == "351") Goto LABEL042
If (STRING003 == "352") Goto LABEL043
If (STRING003 == "353") Goto LABEL044
If (STRING003 == "354") Goto LABEL045
If ((STRING003 == "Q") || (STRING003 == "q")) Goto LABEL107
Goto LABEL106
:LABEL019
Cls
DispFile PPEPath() + "030.pcb", 0
Wait
Goto LABEL001
:LABEL020
Cls
DispFile PPEPath() + "0301.pcb", 0
Wait
Goto LABEL001
:LABEL021
Cls
DispFile PPEPath() + "031.pcb", 0
Wait
Goto LABEL001
:LABEL022
Cls
DispFile PPEPath() + "0311.pcb", 0
Wait
Goto LABEL001
:LABEL023
Cls
DispFile PPEPath() + "0312.pcb", 0
Wait
Goto LABEL001
:LABEL024
Cls
DispFile PPEPath() + "0313.pcb", 0
Wait
Goto LABEL001
:LABEL025
Cls
DispFile PPEPath() + "0314.pcb", 0
Wait
Goto LABEL001
:LABEL026
Cls
DispFile PPEPath() + "032.pcb", 0
Wait
Goto LABEL001
:LABEL027
Cls
DispFile PPEPath() + "030.pcb", 0
Wait
Goto LABEL001
:LABEL028
Cls
DispFile PPEPath() + "0322.pcb", 0
Wait
Goto LABEL001
:LABEL029
Cls
DispFile PPEPath() + "0323.pcb", 0
Wait
Goto LABEL001
:LABEL030
Cls
DispFile PPEPath() + "033.pcb", 0
Wait
Goto LABEL001
:LABEL031
Cls
DispFile PPEPath() + "0331.pcb", 0
Wait
Goto LABEL001
:LABEL032
Cls
DispFile PPEPath() + "0332.pcb", 0
Wait
Goto LABEL001
:LABEL033
Cls
DispFile PPEPath() + "0333.pcb", 0
Wait
Goto LABEL001
:LABEL034
Cls
DispFile PPEPath() + "0334.pcb", 0
Wait
Goto LABEL001
:LABEL035
Cls
DispFile PPEPath() + "0335.pcb", 0
Wait
Goto LABEL001
:LABEL036
Cls
DispFile PPEPath() + "0336.pcb", 0
Wait
Goto LABEL001
:LABEL037
Cls
DispFile PPEPath() + "0337.pcb", 0
Wait
Goto LABEL001
:LABEL038
Cls
DispFile PPEPath() + "0338.pcb", 0
Wait
Goto LABEL001
:LABEL039
Cls
DispFile PPEPath() + "0339.pcb", 0
Wait
Goto LABEL001
:LABEL040
Cls
DispFile PPEPath() + "0340.pcb", 0
Wait
Goto LABEL001
:LABEL041
Cls
DispFile PPEPath() + "0341.pcb", 0
Wait
Goto LABEL001
:LABEL042
Cls
DispFile PPEPath() + "0351.pcb", 0
Wait
Goto LABEL001
:LABEL043
Cls
DispFile PPEPath() + "0352.pcb", 0
Wait
Goto LABEL001
:LABEL044
Cls
DispFile PPEPath() + "0353.pcb", 0
Wait
Goto LABEL001
:LABEL045
Cls
DispFile PPEPath() + "0354.pcb", 0
Wait
Goto LABEL001
:LABEL046
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn "@X0F 40 @X08│ @X0FUs@X0Bin@X03g E@X08xplosives "
PrintLn "@X0F 41 @X08│ @X0FSa@X0Bft@X03ey@X08 "
PrintLn "@X0F 42 @X08│ @X0FIg@X0Bni@X03ti@X08on Devices "
PrintLn "@X0F 421 @X08│ @X0F -F@X0Bus@X03e I@X08gnition "
PrintLn "@X0F 422 @X08│ @X0F -I@X0Bmp@X03ac@X08t Ignition "
PrintLn "@X0F 423 @X08│ @X0F -E@X0Ble@X03ct@X08rical Ignition "
PrintLn "@X0F 424 @X08│ @X0F -E@X0Ble@X03ct@X08ro Mechanical Ignition "
PrintLn "@X0F 4241 @X08│ @X0F -M@X0Ber@X03cu@X08ry Switches "
PrintLn "@X0F 4242 @X08│ @X0F -T@X0Bri@X03pw@X08ire Switches "
PrintLn "@X0F 4243 @X08│ @X0F -R@X0Bad@X03io @X08Detantors "
PrintLn "@X0F 43 @X08│ @X0FDe@X0Bla@X03ys@X08 "
PrintLn "@X0F 431 @X08│ @X0F -F@X0Bus@X03e D@X08elays "
PrintLn "@X0F 432 @X08│ @X0F -Ch@X0Bem@X03ic@X08al Delays "
PrintLn "@X0F 433 @X08│ @X0F -T@X0Bim@X03er@X08 Delays "
PrintLn "@X0F 44 @X08│ @X0FEx@X0Bpl@X03os@X08ve Containers "
PrintLn "@X0F 441 @X08│ @X0F -P@X0Bap@X03er@X08 Containers "
PrintLn "@X0F 442 @X08│ @X0F -M@X0Bet@X03al@X08 Containers "
PrintLn "@X0F 443 @X08│ @X0F -G@X0Bla@X03ss@X08 Containers "
PrintLn "@X0F 444 @X08│ @X0F-P@X0Bla@X03st@X08ic Containers "
PrintLn "@X0F 45 @X08│ @X0FAd@X0Bva@X03nc@X08ed Uses For Explosives "
PrintLn "@X0F 451 @X08│ @X0F-S@X0Bha@X03pe@X08d Charges "
PrintLn "@X0F 452 @X08│ @X0F -T@X0Bub@X03e E@X08xplosives "
PrintLn "@X0F 453 @X08│ @X0F -A@X0Bto@X03mi@X08zed Partical Explosions "
PrintLn "@X0F 454 @X08│ @X0F-L@X0Big@X03ht@X08bulb Bombs "
PrintLn "@X0F 455 @X08│ @X0F-B@X0Boo@X03k B@X08ombs "
PrintLn "@X0F 456 @X08│ @X0F-P@X0Bho@X03ne @X08Bombs "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING004, "@X08", 4, "1234567890Qq", 0
If (STRING004 == "40") Goto LABEL047
If (STRING004 == "41") Goto LABEL048
If (STRING004 == "42") Goto LABEL049
If (STRING004 == "421") Goto LABEL050
If (STRING004 == "422") Goto LABEL051
If (STRING004 == "423") Goto LABEL052
If (STRING004 == "424") Goto LABEL053
If (STRING004 == "4241") Goto LABEL054
If (STRING004 == "4242") Goto LABEL055
If (STRING004 == "4243") Goto LABEL056
If (STRING004 == "43") Goto LABEL057
If (STRING004 == "431") Goto LABEL058
If (STRING004 == "432") Goto LABEL059
If (STRING004 == "433") Goto LABEL060
If (STRING004 == "44") Goto LABEL061
If (STRING004 == "441") Goto LABEL062
If (STRING004 == "442") Goto LABEL063
If (STRING004 == "443") Goto LABEL064
If (STRING004 == "444") Goto LABEL065
If (STRING004 == "45") Goto LABEL066
If (STRING004 == "451") Goto LABEL073
If (STRING004 == "452") Goto LABEL077
If (STRING004 == "453") Goto LABEL067
If (STRING004 == "454") Goto LABEL068
If (STRING004 == "455") Goto LABEL069
If (STRING004 == "456") Goto LABEL070
If ((STRING004 == "Q") || (STRING004 == "q")) Goto LABEL107
Goto LABEL106
:LABEL047
Cls
DispFile PPEPath() + "040.pcb", 0
Wait
Goto LABEL001
:LABEL048
Cls
DispFile PPEPath() + "041.pcb", 0
Wait
Goto LABEL001
:LABEL049
Cls
DispFile PPEPath() + "042.pcb", 0
Wait
Goto LABEL001
:LABEL050
Cls
DispFile PPEPath() + "0421.pcb", 0
Wait
Goto LABEL001
:LABEL051
Cls
DispFile PPEPath() + "0422.pcb", 0
Wait
Goto LABEL001
:LABEL052
Cls
DispFile PPEPath() + "0423.pcb", 0
Wait
Goto LABEL001
:LABEL053
Cls
DispFile PPEPath() + "0424.pcb", 0
Wait
Goto LABEL001
:LABEL054
Cls
DispFile PPEPath() + "04241.pcb", 0
Wait
Goto LABEL001
:LABEL055
Cls
DispFile PPEPath() + "04242.pcb", 0
Wait
Goto LABEL001
:LABEL056
Cls
DispFile PPEPath() + "04243.pcb", 0
Wait
Goto LABEL001
:LABEL057
Cls
DispFile PPEPath() + "043.pcb", 0
Wait
Goto LABEL001
:LABEL058
Cls
DispFile PPEPath() + "0431.pcb", 0
Wait
Goto LABEL001
:LABEL059
Cls
DispFile PPEPath() + "0432.pcb", 0
Wait
Goto LABEL001
:LABEL060
Cls
DispFile PPEPath() + "0433.pcb", 0
Wait
Goto LABEL001
:LABEL061
Cls
DispFile PPEPath() + "044.pcb", 0
Wait
Goto LABEL001
:LABEL062
Cls
DispFile PPEPath() + "0441.pcb", 0
Wait
Goto LABEL001
:LABEL063
Cls
DispFile PPEPath() + "0442.pcb", 0
Wait
Goto LABEL001
:LABEL064
Cls
DispFile PPEPath() + "0443.pcb", 0
Wait
Goto LABEL001
:LABEL065
Cls
DispFile PPEPath() + "0444.pcb", 0
Wait
Goto LABEL001
:LABEL066
Cls
DispFile PPEPath() + "045.pcb", 0
Wait
Goto LABEL001
:LABEL067
Cls
DispFile PPEPath() + "0453.pcb", 0
Wait
Goto LABEL001
:LABEL068
Cls
DispFile PPEPath() + "0454.pcb", 0
Wait
Goto LABEL001
:LABEL069
Cls
DispFile PPEPath() + "0455.pcb", 0
Wait
Goto LABEL001
:LABEL070
Cls
DispFile PPEPath() + "0456.pcb", 0
Wait
Goto LABEL001
:LABEL071
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn "@X0F 50 @X08│ @X0FSp@X0Bec@X03ia@X08l Ammunition for Projectile Weapons "
PrintLn "@X0F 51 @X08│ @X0FPr@X0Boj@X03ec@X08tile Ammunition (primitive) "
PrintLn "@X0F 511 @X08│ @X0F-B@X0Bow@X03 an@X08d Crossbow Ammuntion "
PrintLn "@X0F 512 @X08│ @X0F -B@X0Blo@X03wg@X08un Ammunition "
PrintLn "@X0F 513 @X08│ @X0F -W@X0Bri@X03st @X08Rocket and Slingshot Ammuntion "
PrintLn "@X0F 52 @X08│ @X0FPr@X0Boj@X03ec@X08tile Weapons (firearms) "
PrintLn " @X0F521 @X08│ @X0F -H@X0Ban@X03dg@X08un Ammunition "
PrintLn "@X0F 522 @X08│ @X0F -S@X0Bho@X03tg@X08un Ammunition "
PrintLn "@X0F 53 @X08│ @X0FPr@X0Boj@X03ec@X08tile Weapons (compressed gas) "
PrintLn "@X0F 531 @X08│ @X0F -.@X0B17@X037 C@X08aliber BB gun Ammunition "
PrintLn "@X0F 532 @X08│ @X0F -.@X0B22@X03 Ca@X08liber Pellet Gun Ammunition "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING005, "@X08", 3, "1234567890Qq", 0
If (STRING005 == "50") Goto LABEL072
If (STRING005 == "51") Goto LABEL073
If (STRING005 == "511") Goto LABEL074
If (STRING005 == "512") Goto LABEL075
If (STRING005 == "513") Goto LABEL076
If (STRING005 == "52") Goto LABEL077
If (STRING005 == "521") Goto LABEL078
If (STRING005 == "522") Goto LABEL079
If (STRING005 == "53") Goto LABEL080
If (STRING005 == "531") Goto LABEL081
If (STRING005 == "532") Goto LABEL082
If ((STRING005 == "Q") || (STRING005 == "q")) Goto LABEL107
Goto LABEL106
:LABEL072
Cls
DispFile PPEPath() + "050.pcb", 0
Wait
Goto LABEL001
:LABEL073
Cls
DispFile PPEPath() + "051.pcb", 0
Wait
Goto LABEL001
:LABEL074
Cls
DispFile PPEPath() + "0511.pcb", 0
Wait
Goto LABEL001
:LABEL075
Cls
DispFile PPEPath() + "0512.pcb", 0
Wait
Goto LABEL001
:LABEL076
Cls
DispFile PPEPath() + "0513.pcb", 0
Wait
Goto LABEL001
:LABEL077
Cls
DispFile PPEPath() + "052.pcb", 0
Wait
Goto LABEL001
:LABEL078
Cls
DispFile PPEPath() + "0521.pcb", 0
Wait
Goto LABEL001
:LABEL079
Cls
DispFile PPEPath() + "0522.pcb", 0
Wait
Goto LABEL001
:LABEL080
Cls
DispFile PPEPath() + "053.pcb", 0
Wait
Goto LABEL001
:LABEL081
Cls
DispFile PPEPath() + "0531.pcb", 0
Wait
Goto LABEL001
:LABEL082
Cls
DispFile PPEPath() + "0532.pcb", 0
Wait
Goto LABEL001
:LABEL083
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn "@X0F 60 @X08│ @X0FRo@X0Bck@X03et@X08s And Cannons "
PrintLn "@X0F 61 @X08│ @X0FCa@X0Bnn@X03on@X08s "
PrintLn "@X0F 611 @X08│ @X0F -B@X0Bas@X03ic@X08 Rocket-Bomb "
PrintLn "@X0F 612 @X08│ @X0F -L@X0Bon@X03g R@X08ange Rocket-Bomb "
PrintLn "@X0F 613 @X08│ @X0F -M@X0Bul@X03ti@X08ple Warhead Rocket-Bombs "
PrintLn "@X0F 62 @X08│ @X0FCa@X0Bnn@X03on@X08s "
PrintLn "@X0F 621 @X08│ @X0F -B@X0Bas@X03ic@X08 Pipe Cannon "
PrintLn "@X0F 622 @X08│ @X0F -R@X0Boc@X03ke@X08t-Firing Cannon "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING006, "@X08", 3, "1234567890Qq", 0
If (STRING006 == "60") Goto LABEL084
If (STRING006 == "61") Goto LABEL085
If (STRING006 == "611") Goto LABEL086
If (STRING006 == "612") Goto LABEL087
If (STRING006 == "613") Goto LABEL088
If (STRING006 == "62") Goto LABEL089
If (STRING006 == "621") Goto LABEL090
If (STRING006 == "622") Goto LABEL091
If ((STRING006 == "Q") || (STRING006 == "q")) Goto LABEL107
Goto LABEL106
:LABEL084
Cls
DispFile PPEPath() + "060.pcb", 0
Wait
Goto LABEL001
:LABEL085
Cls
DispFile PPEPath() + "061.pcb", 0
Wait
Goto LABEL001
:LABEL086
Cls
DispFile PPEPath() + "061.pcb", 0
Wait
Goto LABEL001
:LABEL087
Cls
DispFile PPEPath() + "0612.pcb", 0
Wait
Goto LABEL001
:LABEL088
Cls
DispFile PPEPath() + "0613.pcb", 0
Wait
Goto LABEL001
:LABEL089
Cls
DispFile PPEPath() + "062.pcb", 0
Wait
Goto LABEL001
:LABEL090
Cls
DispFile PPEPath() + "0621.pcb", 0
Wait
Goto LABEL001
:LABEL091
Cls
DispFile PPEPath() + "0622.pcb", 0
Wait
Goto LABEL001
:LABEL092
Cls
PrintLn " @X0FCo@X0Bnt@X03en@X08ts "
PrintLn " ─────────────────────────────────────────────────────────────────────────"
PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions "
PrintLn "@X0F 70 @X08│ @X0FPy@X0Bro@X03te@X08chnia Errata "
PrintLn "@X0F 71 @X08│ @X0FSm@X0Bok@X03e B@X08ombs "
PrintLn "@X0F 72 @X08│ @X0FCo@X0Blo@X03re@X08d Flares "
PrintLn "@X0F 73 @X08│ @X0FTe@X0Bar @X03Ga@X08s "
PrintLn "@X0F 74 @X08│ @X0FFi@X0Bre@X03wo@X08rks "
PrintLn "@X0F 741 @X08│ @X0F -F@X0Bir@X03ec@X08rackers "
PrintLn "@X0F 742 @X08│ @X0F -S@X0Bky@X03ro@X08ckets "
PrintLn "@X0F 743 @X08│ @X0F -R@X0Bom@X03an@X08 Candles "
PrintLn " ───────────────────────────────────────────────────────────────────────── "
InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING007, "@X08", 3, "1234567890Qq", 0
If (STRING007 == "70") Goto LABEL093
If (STRING007 == "71") Goto LABEL094
If (STRING007 == "72") Goto LABEL095
If (STRING007 == "73") Goto LABEL096
If (STRING007 == "74") Goto LABEL097
If (STRING007 == "741") Goto LABEL098
If (STRING007 == "742") Goto LABEL099
If (STRING007 == "743") Goto LABEL100
If ((STRING007 == "Q") || (STRING007 == "q")) Goto LABEL107
Goto LABEL106
:LABEL093
Cls
DispFile PPEPath() + "070.pcb", 0
Wait
Goto LABEL001
:LABEL094
Cls
DispFile PPEPath() + "071.pcb", 0
Wait
Goto LABEL001
:LABEL095
Cls
DispFile PPEPath() + "072.pcb", 0
Wait
Goto LABEL001
:LABEL096
Cls
DispFile PPEPath() + "073.pcb", 0
Wait
Goto LABEL001
:LABEL097
Cls
DispFile PPEPath() + "074.pcb", 0
Wait
Goto LABEL001
:LABEL098
Cls
DispFile PPEPath() + "0741.pcb", 0
Wait
Goto LABEL001
:LABEL099
Cls
DispFile PPEPath() + "0742.pcb", 0
Wait
Goto LABEL001
:LABEL100
Cls
DispFile PPEPath() + "0743.pcb", 0
Wait
Goto LABEL001
:LABEL101
Cls
DispFile PPEPath() + "080.pcb", 0
Wait
Goto LABEL001
:LABEL102
Cls
DispFile PPEPath() + "090.pcb", 0
Wait
Goto LABEL001
:LABEL103
Cls
DispFile PPEPath() + "010.pcb", 0
Wait
Goto LABEL001
:LABEL104
Cls
DispFile PPEPath() + "011.PCB", 0
Wait
Goto LABEL001
:LABEL105
Cls
PrintLn "@X0812@X05.@X080 @X03MY OWN ADDITION"
PrintLn " "
PrintLn " @X08I wrote this @X05PPE @X08for @X04EDUCATIONAL USE ONLY@X05!!!! @X08Any use of the contents "
PrintLn "is prohibited by law@X05. @X08I made no other changes other than this final page@X05,@X08 and"
PrintLn "the color to every page in@X05-@X08between@X05.@X08 I am in no way associated with the author"
PrintLn "of the cookbook and am in no way responsible for any damage casued by the use"
PrintLn "of the contents containd herin. "
PrintLn " "
PrintLn " Greets go out to@X05: "
PrintLn " @X0BEntropy@X05:@X08 Get you board up Lazy ass :) "
PrintLn " @X0BPrimus@X05: @X08If your still around thanx for the color scheme! "
PrintLn " @X0BTrite@X05: @X08Stay cool. "
PrintLn " @X0BVio@X05: @X08Keep the CD's coming. "
PrintLn " "
PrintLn " @X0FDa@X0Bnt@X03e [@X08DMN Coder] "
PrintLn ""
Wait
Goto LABEL001
:LABEL106
Cls
Newlines 4
PrintLn " ─────────────────────────────────────────────────────────────────────── "
PrintLn " │ @X0FTh@X0Bat@X03 is@X08 an invalid Section Number, please select again. │ "
PrintLn " ─────────────────────────────────────────────────────────────────────── "
Wait
Goto LABEL001
:LABEL107
Cls
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by @X0FD@X08ante [@X03 @X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by D@X0Fa@X08nte [DMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Da@X0Fn@X08te [@X03DMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dan@X0Ft@X08e [@X0BDMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dant@X0Fe @X08[@X0FDMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dan@X0Ft@X08e [@X0BDMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Da@X0Fn@X08te [@X03DMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by D@X0Fa@X08nte [DMN@X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by @X0FD@X08ante [ @X08]"
Backup 100
Delay 5
Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dante [@X0FDMN@X08]"
Backup 100
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 106 Cls
; 99 Wait
; 206 Goto
; 10 Print
; 158 PrintLn
; 114 If
; 97 DispFile
; 7 InputStr
; 14 Gosub
; 10 Delay
; 2 Newline
; 1 Newlines
; 10 Backup
;
;
; ■ Functions used :
;
; 97 +
; 121 ==
; 7 ||
; 97 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------